home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Programming / Languages / Jeff Interpreter Docs / Scope Rule.Pas < prev   
Encoding:
Pascal/Delphi Source File  |  1986-12-08  |  541 b   |  55 lines  |  [TEXT/PASC]
  1. program PROG1;
  2.  
  3.  var
  4.   A, B : INTEGER;
  5.  
  6.  procedure P;
  7.  
  8.   var
  9.    A : INTEGER;
  10.  
  11.   procedure P1;
  12.  
  13.    var
  14.     B, C : INTEGER;
  15.  
  16.   begin
  17.    A := 4;
  18.    C := 5;
  19.    WRITELN(A);
  20.    WRITELN(C); (* DUMP6 *)
  21.   end;
  22.  
  23.   procedure P2;
  24.  
  25.    procedure P3;
  26.  
  27.     var
  28.      C : array[0..5] of INTEGER;
  29.  
  30.     procedure P4;
  31.  
  32.     begin
  33.      C[3] := 6; (* DUMP5 *)
  34.      P1
  35.     end; (* P4 *)
  36.  
  37.    begin
  38.       (* DUMP4 *)
  39.     P4
  40.    end; (* P3 *)
  41.  
  42.   begin
  43.     (* DUMP3 *)
  44.    P3
  45.   end; (* P2 *)
  46.  
  47.  begin
  48.   (* DUMP2 *)
  49.   P2
  50.  end; (* P *)
  51.  
  52. begin
  53. (* DUMP1 *)
  54.  P
  55. end. (* PROG1 *)